      SUBROUTINE RD481
C
      IMPLICIT REAL*8(A-H,O-Z)
C
      COMMON/CONDMP/IDPHLD
C
      COMMON/CRASTR/DELA(3),TAUA(4,3),ANG20(3),ADD0(3),TC(3),TTAB(4,3)
C
      COMMON/CSECBD/SECM,SECI(3,3),ZBAR2(3),YI02(3),ZZ2(3,3),ZZ2Y(3,3)
     1             ,YZ2(3),YZT(3),ZB(3),YIZ02(3)
C
      COMMON/DPCONS/DPPARM(200),IDPCS(50)
C
      COMMON/DPCSIC/DPIC(50),DPUP(50),DPDN(50)
C
      COMMON/GPCONS/GPPARM(200),IGPCS(50)
C
      COMMON/GPINCS/GPICS(50),GPUP(50),GPDN(50)
C
      COMMON/ISECBD/I2BDY,NDOF2,IRAST,NDEP2,IARST(3),IRSCY(3)
C
C
      COMMON/SECICS/GAM20,ALP20,BET20,B0(3,3),GAM2I,ALP2I,BET2I
     1             ,OM2I(3),SBUP(2),SBDN(2)
C
      COMMON/SBINTF/SBK1(3),SBK2(3),SBSTA(3),SBDM(3)
C
      COMMON/ACFILT/ACPARM(20),IACFLT(20)
C
C
      CALL SETUP(8HIDPHLD  ,4,IDPHLD)
C
      CALL SETUP(8HDELA    ,8,DELA,3)
      CALL SETUP(8HTAUA    ,8,TAUA,4,3)
      CALL SETUP(8HANG20   ,8,ANG20,3)
      CALL SETUP(8HADD0    ,8,ADD0,3)
      CALL SETUP(8HRSTCYC  ,8,TC,3)
      CALL SETUP(8HTTAB    ,8,TTAB,4,3)
C
      CALL SETUP(8HSECM    ,8,SECM)
      CALL SETUP(8HSECI    ,8,SECI,3,3)
      CALL SETUP(8HZBAR2   ,8,ZBAR2,3)
      CALL SETUP(8HYI02    ,8,YI02,3)
C
      CALL SETUP(8HDPPARM  ,8,DPPARM,200)
      CALL SETUP(8HIDPCS   ,4,IDPCS,50)
C
      CALL SETUP(8HDPIC    ,8,DPIC,50)
      CALL SETUP(8HDPUP    ,8,DPUP,50)
      CALL SETUP(8HDPDN    ,8,DPDN,50)
C
      CALL SETUP(8HGPPARM  ,8,GPPARM,200)
      CALL SETUP(8HIGPCS   ,4,IGPCS,50)
C
      CALL SETUP(8HGPICS   ,8,GPICS,50)
      CALL SETUP(8HGPUP    ,8,GPUP,50)
      CALL SETUP(8HGPDN    ,8,GPDN,50)
C
C
      CALL SETUP(8HI2BDY   ,4,I2BDY)
      CALL SETUP(8HNDOF2   ,4,NDOF2)
      CALL SETUP(8HIRAST   ,4,IRAST)
      CALL SETUP(8HIARST   ,4,IARST,3)
      CALL SETUP(8HIRSCY   ,4,IRSCY,3)
C
C
      CALL SETUP(8HGAM20   ,8,GAM20)
      CALL SETUP(8HALP20   ,8,ALP20)
      CALL SETUP(8HBET20   ,8,BET20)
      CALL SETUP(8HGAM2I   ,8,GAM2I)
      CALL SETUP(8HALP2I   ,8,ALP2I)
      CALL SETUP(8HBET2I   ,8,BET2I)
      CALL SETUP(8HOM2I    ,8,OM2I,3)
      CALL SETUP(8HSBUP    ,8,SBUP,2)
      CALL SETUP(8HSBDN    ,8,SBDN,2)
C
      CALL SETUP(8HSBK1    ,8,SBK1,3)
      CALL SETUP(8HSBK2    ,8,SBK2,3)
      CALL SETUP(8HSBSTA   ,8,SBSTA,3)
      CALL SETUP(8HSBDM    ,8,SBDM,3)
C
      CALL SETUP(8HACPARM  ,8,ACPARM,20)
      CALL SETUP(8HIACFLT  ,4,IACFLT,20)
C
C
C
      RETURN
C
      END
